﻿Imports Microsoft.VisualStudio.TestTools.UnitTesting
Imports RentALimo.Business

<TestClass()> _
Public Class WagenTestFixture


    <TestMethod()> _
    Public Sub WagenTestContructor()
        Dim target As New Wagen
        Dim exppected As New Wagen With {
            .Naam = "LicoLn Limo Black",
            .UurPrijs = 30,
            .Nightlife = 3000,
            .Wedding = 5000
            }
        target.Naam = "LicoLn Limo Black"
        target.UurPrijs = 30
        target.Nightlife = 3000
        target.Wedding = 5000

        Assert.AreEqual(exppected, target)
    End Sub
End Class
